1 POKE53280,6:POKE53281,6:PRINT"[147]";:IFPEEK(816)=165ANDPEEK(817)=244THEN3
2 PRINT" KILL CARTRIDGE ! ":END
3 DIMA$(40):PRINT"[158]";:FORT=1TO40:PRINT" ";:NEXT
4 PRINT"";:FORT=0TO9:PRINT" ";:NEXT:PRINT"SCROLL-PROTECT-DEMO";:FORT=1TO11:PRINT" ";:NEXT
5 PRINT"[158]";:FORT=1TO40:PRINT" ";:NEXT
6 :
7 :
10 POKE770,131:POKE771,164
20 POKE88,0:POKE89,192
30 POKE90,0:POKE91,192
40 POKE781,33:POKE782,0
50 SYS41964
60 POKE88,254:POKE89,255
70 POKE90,254:POKE91,255
80 POKE781,33:POKE782,0
90 SYS41964
100 POKE59639,2
110 POKE1,53
115 :
116 :
120 GOTO600
121 DATA"SICHER HAST DU SIE BEREITS OFT GESEHEN -
122 [131]"PROGRAMME, BEI DEINEN DER OBERE UND/
123 DATA"ODER UNTERE BILDSCHIRMRAND UNBEWEGLICH
124 [131]"STEHEN BLEIBT, WAEHREND DER UEBRIGE
125 DATA"SCREEN-INHALT NACH OBEN SCROLLT.
126 [131]"
127 DATA"SO ETWAS IN DEINEN EIGENEN PROGGIS
128 [131]"AUCH ZU ZEIGEN, DAS IST FUER DICH MIT
129 DATA"DER IN DIESEM FILE ENTHALTENEN
130 [131]"ROUTINE NUN AUCH KEIN PROBLEM MEHR.
131 DATA"
132 [131]"WIE DIES FUNKTIONIERT, DAS WIRD DIR
133 DATA"GLEICH ANSCHLIESSEND IN DER ORIGINAL-
134 [131]"ANLEITUNG MITGETEILT!
135 DATA"
136 [131]"   VIEL SPASS BEIM AUSPROBIEREN !"
137 [131]"
138 DATA"              TIGERCREW                "
140 DATA"ZEILE  10 SCHALTET FASTLOAD AUS."
150 DATA"
160 [131]"ZEILEN 20-50 BEWEGEN BASIC VOM          ROM ZUM RAM DARUNTER.
170 DATA"
180 [131]"ZEILEN 60-90 BEWEGEN DAS KERNAL         ROM ZUM RAM DARUNTER.
190 DATA"
200 [131]"ZEILE 100 SETZT DIE ZAHL DER UN-        BEWEGLICHEN ZEILEN AM OBEREN
210 DATA"SCREEN-RAND (PLUS 1) Z.B.: 2            BEDEUTET, DASS 3 ZEILEN NICHT
220 [131]"SCROLLEN.
225 DATA"
230 [131]"ZEILE 110 VERLEGT BASIC UND KER-        NAL IM ROM ZU BASIC UND KERNAL
240 DATA"IM RAM. - POKE1,55 SETZT WIEDER         AUF DEN NORMALZUSTAND, UND DU
250 [131]"KANNST BELIEBIG MIT POKE 1,53           UND 1,55 UMSCHALTEN."
260 [131]"
270 DATA"AUCH DIE ZEILEN AM UNTEREN RAND         KANNST DU FESTHALTEN - DURCH"
280 DATA" POKE 59652,N [146], WOBEI N=24 MINUS        DER ZEILEN, DIE NICHT
290 [131]"SCROLLEN SOLLEN, IST.
295 DATA"
300 [131]" Z.B.: EINE ZEILE, DIE NICHT             SCROLLEN SOLL: POKE 59652,23"
310 [131]"ENDE
600 T=1
601 READA$(T):IFA$(T)="ENDE"THENT=T-1:GOTO610
602 T=T+1:GOTO601
610 PRINT"":FORT=1TO18:PRINTA$(T):NEXT
620 POKE198,0:WAIT198,1:POKE198,0
625 FORX=1TO10:PRINT:NEXT
630 FORT=19TO27:PRINTSPC(4)A$(T):NEXT
635 FORX=1TO4:PRINT:NEXT
640 POKE198,0:WAIT198,1:POKE198,0
645 FORX=1TO10:PRINT:NEXT
650 FORT=28TO37:PRINTSPC(4)A$(T):NEXT
655 FORX=1TO4:PRINT:NEXT
660 POKE198,0:WAIT198,1:POKE198,0:
665 FORX=1TO10:PRINT:NEXT
670 LIST6-116